﻿Public Class frmTaiKhoan

    Private Sub frmTaiKhoan_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        cbxGioiTinh.DataSource = TaiKhoanDAO.GioiTinh()
        cbxGioiTinh.DisplayMember = "gt_GioiTinh"
        cbxGioiTinh.ValueMember = "gt_ID"

        cbxLoaiTaiKhoan.DataSource = TaiKhoanDAO.LoaiTaiKhoan()
        cbxLoaiTaiKhoan.DisplayMember = "ltk_TenLoai"
        cbxLoaiTaiKhoan.ValueMember = "ltk_ID"

        txtMatKhau.PasswordChar = "*"
        txtNLMatKhau.PasswordChar = "*"
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim tk As TaiKhoan = New TaiKhoan()
        tk.m_strTenDangNhap = txtTenDangNhap.Text
        tk.m_strMatKhau = txtMatKhau.Text
        tk.m_intGioiTinh = cbxGioiTinh.SelectedValue.ToString()
        tk.m_intLoaiTK = cbxLoaiTaiKhoan.SelectedValue.ToString()
        tk.m_strCMND = txtCMND.Text
        tk.m_strHoTen = txtHoTen.Text
        tk.m_strDiaChi = txtDiaChi.Text
        Dim kt As Long

        If (txtTenDangNhap.Text = "" Or txtCMND.Text = "" Or txtDiaChi.Text = "" Or txtMatKhau.Text = "" Or txtHoTen.Text = "" Or txtNLMatKhau.Text = "") Then
            MessageBox.Show("Bạn không được để trống những trường này!")
            Return
        ElseIf (txtNLMatKhau.Text <> txtMatKhau.Text) Then
            MessageBox.Show("Mật khẩu nhập lại phải trùng với mật khẩu!")
            Return
        ElseIf (txtTenDangNhap.TextLength < 4) Then
            MessageBox.Show("Tài khoản không được ít hơn 4 ký tự!")
            Return
        ElseIf (txtMatKhau.TextLength < 6 And txtMatKhau.TextLength > 20) Then
            MessageBox.Show("Mật khẩu từ 6 tới 20 ký tự!")
            Return
        ElseIf Not Long.TryParse(txtCMND.Text, kt) Then
            MessageBox.Show("Chứng minh nhân dân phải nhập số!")
            Return
        ElseIf (TaiKhoanDAO.KiemtraTK(tk).Rows.Count = 1) Then
            MessageBox.Show("Tài khoản đã tồn tại!")
            Return
        Else
            TaiKhoanDAO.ThemTaiKhoan(tk)
            If (MessageBox.Show("Thêm tài khoản thành công!, Bạn có muốn tiếp tục?", "Thông báo", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes) Then
                txtTenDangNhap.Text = ""
                txtMatKhau.Text = ""
                txtNLMatKhau.Text = ""
                txtDiaChi.Text = ""
                txtCMND.Text = ""
                txtHoTen.Text = ""
            Else
                Me.Close()
            End If
        End If
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        If (MessageBox.Show("Bạn có chắc chắn thoát không?", "Thoát", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes) Then
            Me.Close()
        End If
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        txtTenDangNhap.Text = ""
        txtMatKhau.Text = ""
        txtNLMatKhau.Text = ""
        txtDiaChi.Text = ""
        txtCMND.Text = ""
        txtHoTen.Text = ""
    End Sub
End Class